NEC SuperScript 860 Solutions/NEC SuperScript 860 Solutions.iso/internet/scripts.lib/TTNNET.SCR

Text File | 1994-12-29 | 1KB | 52 lines

!
!  Copyright (c) 1994
!  by CompuServe Incorporated, Columbus, Ohio
!
!  The information in this software is subject to change without
!  notice and should not be construed as a commitment by CompuServe.
!
!  TTN-NET:
!    Connect to TTN-NET
!    Success:  returns %Success
!    Failure:  saves error msg in %FailureMsg and returns %Failure
!
!+V
! "3.5.2"
!-V

Attempts = 5;
TTN_Address = "CNST";
on cancel goto Return_Cancel;
show "Connecting to TTN-Net";

Wait_TTN:
    if Attempts = 0 goto Return_Failure;
    Attempts = Attempts - 1;

    wait
        "@"        goto Send_Address,
        "Host Name"    goto Return_Success,
        "User ID"    goto Return_Success,
        %mdm_Failure    goto Return_Failure
    until 180;

    send %CR;
    goto Wait_TTN;

Send_Address:
    show "Sending CompuServe Address...";
    wait until 10;
    send TTN_Address & %CR;
    goto Wait_TTN;

Return_Failure:
    define %FailureMsg = "TTN-Net not responding";
    exit %Failure;

Return_Cancel:
    exit %Cancel;

Return_Success:
    send %CR;
    exit %Success;